<?  
  set_time_limit(4500);
  /* Se asegura que el archivo es incluido por el index */
    defined( 'LOAD_MODULE_ACTION' ) or die( 'No esta permitido el acceso directo a ' . __FILE__ );  
	/* Cuando se hace el include del archivo automaticamente crea un objeto y lo guarda en una variable temporal */
		$this->oTmpObject = new Poesia_libre_exe( $this );
    
	class Poesia_libre_exe extends Exe
	{
	function Poesia_libre_exe( &$oModule )
		{
			$this->Exe( $oModule );
		}
		// AGREGAR_POESIALIBRE
		function insert()
		{
			// Convierte a variables los datos del Formulario asociado a la accion
			$oForm = $this->oModule->loadClass( 'Poesia_libre_frm' );
			extract( $oForm->getFieldArray() );
			// Busca el siguiente id
			$ncPoesiaLibre      = $this->oDatabase->nextKey("gtPoesiaLibre", "ncPoesiaLibre"  );
			$this->oDatabase->insert("gtPoesiaLibre"
								,"ncPoesiaLibre", $ncPoesiaLibre
								,"cdPoesiaLibre", $cdPoesiaLibre
								,"dDesde", $dDesde
								,"cPalabra1", $cPalabra1
								,"cPalabra2", $cPalabra2
								,"cPalabra3", $cPalabra3
								,"cPalabra4", $cPalabra4
								,"cPalabra5", $cPalabra5
								,"cPalabra6", $cPalabra6
								,"cPalabra7", $cPalabra7
								,"cEstilo1", $cEstilo1
								,"cEstilo2", $cEstilo2
								,"cEstilo3", $cEstilo3
								,"cEstilo4", $cEstilo4
								,"cEstilo5", $cEstilo5
								,"cEstilo6", $cEstilo6
								,"cEstilo7", $cEstilo7);
			$this->setInputData( $ncPoesiaLibre, $cdPoesiaLibre );
		}
		
		// ELIMINAR_POESIALIBRE
		function delete()
		{
			$ncPoesiaLibre = getParam( 'ncPoesiaLibre' );
			$this->oDatabase->delete("gtPoesiaLibre","ncPoesiaLibre", $ncPoesiaLibre );
		}
		
		// MODIFICAR_POESIALIBRE
		function update()
		{
			// Convierte a variables los datos del Formulario asociado a la accion
			$oForm = $this->oModule->loadClass( 'Poesia_libre_frm' );
			extract( $oForm->getFieldArray() );
			$this->oDatabase->update("gtPoesiaLibre"
								,"cdPoesiaLibre", $cdPoesiaLibre
								,"dDesde", $dDesde
								,"cPalabra1", $cPalabra1
								,"cPalabra2", $cPalabra2
								,"cPalabra3", $cPalabra3
								,"cPalabra4", $cPalabra4
								,"cPalabra5", $cPalabra5
								,"cPalabra6", $cPalabra6
								,"cPalabra7", $cPalabra7
								,"cEstilo1", $cEstilo1
								,"cEstilo2", $cEstilo2
								,"cEstilo3", $cEstilo3
								,"cEstilo4", $cEstilo4
								,"cEstilo5", $cEstilo5
								,"cEstilo6", $cEstilo6
								,"cEstilo7", $cEstilo7
								,"WHERE"
								 ,"ncPoesiaLibre", $ncPoesiaLibre);
			$this->setInputData( $ncPoesiaLibre, $cdPoesiaLibre );
		}
	}
?>